home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / REQUIRE.INV < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.1 KB  |  47 lines
  1. * require.inv 08/18/83
  2. * inventory requirements report
  3. GOTO TOP
  4. STORE 0 TO pageno
  5. STORE 0 TO need
  6. STORE T to MORE
  7. SET MARGIN TO 5
  8. DO WHILE more
  9. STORE pageno + 1 TO pageno
  10. STORE 7 TO lineno
  11. ERASE
  12. EJECT
  13. ? ' '
  14. ? '========================= SIG/M DISK REQUIREMENTS =================='
  15. ? ' '
  16. ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  17. ? ' '
  18. ? 'VOLUME        ADJUSTED         INCLUDED        NORMAL         SHOULD'
  19. ? 'NUMBER        INVENTORY       BACKORDERS       STOCK          ORDER'
  20. ? ' '
  21. DO WHILE lineno <55
  22. IF .NOT. EOF
  23. STORE norm:stk-(open:inv-back:ord-wait:ship+recvd) TO need1
  24. IF need1 >0
  25. store need1 + need TO need
  26. ELSE
  27. store 0 TO need1
  28. ENDIF
  29. ? ' '+ STR(disk,3,0) + '             ';
  30. + str(open:inv-back:ord-wait:ship+recvd,3,0) + '            ';
  31. + STR(back:ord,3,0) + '            ' + STR(norm:stk,3,0);
  32. + '            ' + STR(need1,3,0)
  33. ELSE
  34. STORE f TO more
  35. ENDIF not .EOF.
  36. STORE lineno + 1 to lineno
  37. skip
  38. ENDDO while lineno > 55
  39. ENDDO more
  40. ? ' '
  41. ? ' '
  42. ? '  TOTAL NUMBER OF DISKS REQUIRED IS ' + str(need,3,0)
  43. EJECT
  44. SET PRINT OFF
  45. RELEASE ALL
  46. STORE t TO more
  47.